PROGRAM afficheCompte;

USES Types, Clients;

FUNCTION afficheComptes(ID_client:INTEGER; tabcompte:TTabcompte):INTEGER;
	VAR
		i:INTEGER;
		j:INTEGER;
		comptepos:INTEGER;
		
	BEGIN
	ID_client:=123;
	tabcompte.compteclient[1].IDcompte:=1212;
	tabcompte.compteclient[1].IDclient:=123;
	tabcompte.compteclient[1].Libelle:='test';
	tabcompte.compteclient[1].taux:='12';
	tabcompte.compteclient[1].solde:=1500;
	tabcompte.compteclient[1].limite:=500;
	
	tabcompte.nbcompte:=2;
	
		i:=ID_client;
		j:=1;
		comptepos:=0;
		
		WHILE(j<=tabcompte.nbcompte) DO
			BEGIN
				IF(i=tabcompte.compteclient[j].IDclient) THEN
					BEGIN
						WRITELN('IDcompte: ', tabCompte.compteclient[j].IDcompte);
						WRITELN('Libelle: ', tabCompte.compteclient[j].Libelle);
						WRITELN('Taux: ', tabCompte.compteclient[j].taux);
						WRITELN('Solde: ',tabCompte.compteclient[j].solde);
						WRITELN('Limite de retrait: ',tabCompte.compteclient[j].limite);
						
						comptepos:=comptepos+1;
						
					END;
					j:=j+1;
				WRITELN('Ce client possede ',comptepos,' compte(s) chez nous');
				
			END;
			
			result:=comptepos;
	END;
VAR
	ID_client:INTEGER;
	tabcompte:TTabcompte;
BEGIN
	afficheComptes(ID_client,tabcompte);
	
END.

